home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aah.d64 / src.test'package < prev    next >
Text File  |  2007-02-28  |  1KB  |  82 lines
  1. ;
  2. *      = $8009
  3. ;
  4.        .OPT NOLIST
  5.        .LIB LIB.LABELS
  6. ;
  7.        .BYTE DEFPAG
  8.        .WORD END
  9.        .WORD DUMMY
  10.        .BYTE 12,'TEST''PACKAGE'
  11.        .WORD PROCS
  12.        .WORD DUMMY
  13.        .BYTE 0
  14. ;
  15. PROCS  .BYTE 4,'SWAP'
  16.        .WORD PRHEAD
  17.        .BYTE 0
  18. ;
  19. PRHEAD .BYTE PROC
  20.        .WORD PRCODE
  21.        .BYTE 2
  22.        .BYTE REF+REAL
  23.        .BYTE REF+REAL
  24.        .BYTE ENDPRC
  25.  
  26. PRCODE 
  27. ;
  28. ; REAL VARIABLE FIRST
  29. ;
  30.        LDA #1
  31.        JSR FNDPAR
  32.        LDA COPY1
  33.        LDY COPY1+1
  34.        JSR LDAC1
  35.        JSR PUSHA1
  36. ;
  37. ; ASSIGN REAL THIRD
  38. ;
  39.        JSR POPA1
  40.        LDX #<LOC001
  41.        LDY #>LOC001
  42.        JSR STAC1
  43. ;
  44. ; REAL VARIABLE SECOND
  45. ;
  46.        LDA #2
  47.        JSR FNDPAR
  48.        LDA COPY1
  49.        LDY COPY1+1
  50.        JSR LDAC1
  51.        JSR PUSHA1
  52. ;
  53. ; ASSIGN REAL FIRST
  54. ;
  55.        LDA #1
  56.        JSR FNDPAR
  57.        JSR POPA1
  58.        LDX COPY1
  59.        LDY COPY1+1
  60.        JSR STAC1
  61. ;
  62. ; REAL VARIABLE THIRD
  63. ;
  64.        LDA #<LOC001
  65.        LDY #>LOC001
  66.        JSR LDAC1
  67.        JSR PUSHA1
  68. ;
  69. ; ASSIGN REAL SECOND
  70. ;
  71.        LDA #2
  72.        JSR FNDPAR
  73.        JSR POPA1
  74.        LDX COPY1
  75.        LDY COPY1+1
  76.        JSR STAC1
  77.        RTS
  78.  
  79. LOC001 .BYTE 0,0,0,0,0
  80. ;
  81. END    .END
  82.